home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed48.d64 / teacher inform (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  2KB  |  51 lines
  1. 50 POKE53280,0:POKE53281,0:POKE53272,23
  2. 100 PRINT"[147][156]            [215][200][195][160][197]NTERPRISES
  3. 105 [153]"            (null)(null)(null)CHR$  (LEN) VALSTR$-48
  4. 110 PRINT"              [215][207][210][196]  [213][211][193][199][197] [146]
  5. 115 [153]"LIST     PEEKASED ON (null)CSTR$ONALD (null)UBLISHING'S
  6. 120 PRINT"[158]     >>>>> [215]ORD [213]SAGE [196]EMONS <<<<<
  7. 125 [141]150
  8. 130 [137]200
  9. 150 [129]T[178]1[164]2000:[130]
  10. 155 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE
  11. 160 GETR$:IFR$<>CHR$(32)THEN160
  12. 165 RETURN
  13. 200 PRINT"[147][159] [212]HE MATERIAL IN THE FOURTEEN
  14. 210 [153]" EXERCISES ON THIS DISK ARE DERIVED
  15. 220 PRINT" FROM THE [205]C [196]ONALD [208]UBLISHING
  16. 230 [153]" LENOMPANY BOOK, (null)(null)(null)STR$ (null)(null)ATNCHR$VAL STR$VAL(null)(null)(null)(null).
  17. 240 PRINT"[159] [197]ACH EXERCISE PRESENTS 15 QUESTIONS
  18. 250 [153]" AND THE PUPIL IS REQUIRED TO TYPE
  19. 260 PRINT" THE CORRECT WORD TO FILL A BLANK.
  20. 270 [153]" VALACH EXERCISE IS SCORED AND A PUPIL
  21. 280 PRINT" MAY BE ASKED TO REPEAT AN EXERCISE
  22. 285 [153]" IF TOO MANY MISTAKES ARE MADE."
  23. 290 [141]150
  24. 300 [153]"LOAD VAL(null)VAL(null)LENRIGHT$(null)VALCLOSE1 > OPENTHIS - THAT
  25. 310 PRINT"          2 > [159]MOST - ALMOST
  26. 320 [153]"          3 > OPENREAL - VERY
  27. 330 PRINT"          4 > [159]MORE - MOST
  28. 340 [153]"         CLOSE5 > OPEN...ER - ...EST
  29. 350 PRINT"          6 > [159]THERE - HERE - WHERE
  30. 360 [153]"          7 > OPENGOOD - WELL"
  31. 370 [141]150
  32. 400 [153]"LOAD VAL(null)VAL(null)LENRIGHT$(null)VAL 8 > OPENBETWEEN - AMONG
  33. 410 PRINT"          9 > [159]IN - INTO
  34. 420 [153]"         10 > OPENLIE - LAY
  35. 430 PRINT"         11 > [159]LET - LEAVE
  36. 440 [153]"         12 > OPENSIT - SET
  37. 450 PRINT"         13 > [159]CAN - MAY
  38. 460 [153]"         14 > OPENWHO - WHOM - WHICH"
  39. 470 [141]150
  40. 500 [153]"LOADOPEN (null)OU HAVE A CHOICE:
  41. 510 PRINT" [208]RESS  [210] [146] TO REPEAT INSTRUCTIONS
  42. 520 [153]" (null)RESS  (null) WAIT TO GO TO THE DISK MENU
  43. 530 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"M"ANDR$<>"[205]"THEN530
  44. 540 IFR$="R"THEN100
  45. 550 IFR$="[210]"THEN100
  46. 560 PRINT"[147][210]ETURNING TO THE DISK MENU
  47. 570 [147]"MENU",8
  48. 580 [138]
  49. 590 [128]
  50. 600 [143] WHC 93:04:26
  51.